home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / modellib / nlmathieu_def.c < prev    next >
Encoding:
Text File  |  1990-01-16  |  1.0 KB  |  60 lines
  1. int nlmathieu_init()
  2. {
  3.     title_label = "Nonlinear Mathieu Eq";
  4.  
  5.     mapping_on = 0;
  6.     inverse_on = 1;
  7.     fderiv_on = 0;
  8.     enable_polar = 0;
  9.     enable_period = 0;
  10.  
  11.     var_dim = 3;
  12.     param_dim = 3;
  13.     func_dim = 2;
  14.  
  15.     (void) malloc_init();
  16.  
  17.     var_label[0] = "x";
  18.     var_label[1] = "y";
  19.     var_label[2] = "t";
  20.     param_label[0] = "omega";
  21.     param_label[1] = "ampl";
  22.     param_label[2] = "damp";
  23.     func_label[0] = "Undefined";
  24.     func_label[1] = "Undefined";
  25.  
  26.     param[0] = 1;
  27.     param[1] = 0;
  28.     param[2] = 0;
  29.  
  30.     var_i[0] = 0;
  31.     var_i[1] = 0;
  32.     var_i[2] = 0;
  33.  
  34.     param_min[0]= -5; param_max[0]= 5;
  35.     param_min[1]= -5; param_max[1]= 5;
  36.     param_min[2]= -5; param_max[2]= 5;
  37.  
  38.     var_min[0]= -5; var_max[0]= 5;
  39.     var_min[1]= -5; var_max[1]= 5;
  40.     var_min[2]= -5; var_max[2]= 5;
  41.  
  42.     f_p = nlmathieu_f;
  43.     func_p = nlmathieu_func;
  44. }
  45. /* nonlinar mathieu equation */
  46. int nlmathieu_f(f,index,x,p,t,dim)
  47. int index,dim;
  48. double f[],x[],p[],t;
  49. {
  50.     f[0] = x[1];
  51.     f[1] = -p[2] * x[1] - (p[0] * p[0] + p[1] * cos(x[2])) * sin(x[0]);
  52.     f[2] = 1;
  53.     
  54. }
  55. int nlmathieu_func(f,x,p,t,dim)
  56. double f[],x[],p[],t;
  57. int dim;
  58. {
  59. }
  60.